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IDENT /1-019/ 3; File: COBINTER.MAR 
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4 
0 5 
00 § . 
00 3* * 
00 8 :* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
00 3* DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. * 
8 9 = ALL RIGHTS RESERVED. * 
: * 
0000 \§ 3* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
00 15 ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
0000 14 ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0000 15 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 8 3* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
g88 3 * TRANSFERRED. * 
3 
0000 19 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 0 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
+444 1 ;*% CORPORATION. * 
3* * 
0000 : 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 4 ;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 5 ;* * 
0000 6 ;* + 
88 —A 
0000 7s 
0000 0; 
0000 1 ; FACILITY: COBOL DATA TYPE CONVERSIONS 
0000 § 3+¢ 
0000 ; ABSTRACT: 
0000 4; This module contains all of the data type conversions 
88 3 to and from intermediate temporary for COBOL. 
0000 J 
0000 8 ;-- 
0000 , 3 
0000 40 ; VERSION: 1 
0000 41; 
0000 $s 3; HISTORY: 
0000 43; 
Bb 44 ; AUTHOR: 
45 ; 
8 0 8 
000 47 ; 
0000 48 ; 
000 49 ; 
0 50 ; 
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1-01 HISTORY ; Detailed Current Edit History 6-SEP-1984 10:46: COBRTL.SRCICOBINTER.MAR; 1 (2) 
¢ -SBTTL HISTORY : Detailed Current Edit History 
4 
5 ; Edit History for Version 1 of COBINTER 
3 : 1-001 = Original. JBS 02-JAN-1979 
0 8; I- g - Continue development. JBS 12-JAN-1979 
000 9 ; 1-005 = Rearrange rntargedtate form to put fraction before exponent. 
000 60 ; JBS 16-JAN-1979 
000 61 ; 1-004 = Remove the arithmetic routines. DGP 23-Jan-79 
00 6¢ 3 1-005 - Remove the constants which refer to the Intermediate data type and 
8 63 ; ut them in a Require file = COBPARINT.MDL. P 29-Jan-79 
64 ; 1-006 - Change the references to the Intermediate data type parameters from 
80 65 ; COB$ to INT$. DGP 30-Jan-7 
000 66 ; 1-007 - Declare externals explicitly. JBS 06-FEB-1979 
0000 67 ; 1-008 - Bud [ising and cleanup. MLJ 10-Mar- 
0000 68 ; 1-009 - 19 digit * and bu —*88* MLJ 13-Mar-1979 
88 69 ; 1-010 - Correct problem with high order longword in CVTIQ and CVTRIQ. MLJ 22-Mar-, 
000 70 ; 1-011 = Comment out ASHP that specified rounding in CVTIP. WPS 11-June-1979. 
0000 1 3 ee 4 4 - Correct DIVP rounding toward 0 in conversions to quad. PDG 12-Jul-1979 
0000 72 ; 1-013 = Get edit history in synch with ident statement. 
0000 73; RKR 04-Sept-197 
0000 74 ; 1-014 = Set INTSP_I_FRAC to 2. RKR 11-Sept-79 
0000 75 ; 1-015 = Change alT references to FORSCNV_IN_DEFG to OTS$_CVT_T_D 
0000 76 ; RKR 27-SEPT-79 
0000 77 ; 1-016 = Chan ¢ all references to FORSCNV_OUT_E to COBSCNVOUT. 
0000 78 ; RKR 27-SEPT-79 
0000 79 ; 1-017 = Make INTSSNORMALIZE local. Cosmetic changes. RKR_21-0CT-79 
0000 80 ; 1-018 - Change CIT reserved epprend detection logic. RKR 30-OCT-79 
44 3 3 1-019 - Fix normalization problem in CVTPI1. MLJ 21-Nov-1979 
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sss 


§ ; INCLUDE FILES: 


SINTDEF : Intermediate data type format 
SDSCDEF ; Descriptor definitions 


: EXTERNAL SYMBOLS: 


-EXTRN LIBSSIGNAL : Signal an error 
-EXTRN LIBSSTOP : Signal a fatal error 


30 
; The following are error codes for LIBSSIGNAL and LIBSSTOP 


-EXTRN COBS_INTEXPOVE ; Intermediate exponent overflow 
XTRN COBS_INTEXPUND ; Intermediate exponent underflow 

-EXTRN COBS_INTRESOPE ; Intermediate reserved operand 
XTRN COBS_INVDECDIG ; Invalid decimal it 


DOOOCOCOOoOoOOCooO a 


OOoOoooooooooSo 


S 


OOQQCCCOCOCOCOCOCOCOCOOCOCOOCOoOO =r 


SoOooooooooooooo 
NRMNVNIN 3 3 2 2 | “DOO OTOCODOCOCOOOOOOOOOO 


WO o OB NOUS WN NOUS WN Oo 
s. o . 


90001 
0 1 
0 1 
0000 | 
9 00 . TEXTRN OTSS"FATINTERR : Fatal internal OTS error 
0000 107: The following subroutines are used for conversion between floating 
8 8 ooint and text. 
0000 1 -EXTRN COBSCNVOUT : Convert floating to E format 
8 -EXTRN OTSSCVT_T_D ; Convert text to floating 
0000 113 : MACROS: 
0000 114; 
0000 115; NONE 
0000 116; 
0000 1 3; PSECT DECLARATIONS: 

oooogggꝭ -PSECT _COBSCODE PIC, SHR, LONG, EXE, NOWRT 
0000 120; 
0000 1 ; EQUATED SYMBOLS: 

00000002 ia ' INTSP_I_FRACT = 2 : Temporary until Packed supported in MDL 


So 


; Fraction field offset 


— 
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; OWN STORAGE: 


n 
T 


8 


ne b constant has the value 2**32. it is used for scaling 
e hi 2 bits and for compensating for unsigned arithmetic. 


* .PACKED 4294967296 ; 20032 


The Wot touting constant is 2**32-1. It's subtracted from negative numbers 
;_when converting to quad, to compensate for DIVP truncating toward zero. 
BIA 


Si: spacers 4294967295 3 2032-1 
BIAS. DIGIT 3; Number of digits in 2**32 


Note that the Quadword-t reattan bes Uh aie qeqvereren routine knows that 
the intermediate-form fraction has 1 is is because a 
quadword has 18 or srerety? 19 digits, eg the pe is significantly 
more efficient if it can shift by 0 or (rarely) 1 digit rather than 
sonoye tne aoe much to shift, as the Packed-to-Intermediate conversion 
routine must. 


Similarly, NORMALIZE and CVTTI manipulate the intermediate form 
internals directly. 
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C 
C 
C 
C 
C 
C 
C 
C 
C 
F 
1 
1 
1 
1 
1 
1 
4 
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8 
8 
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8 
8 
0 
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8 
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] 1 ~SBTTL NORMALIZE 
1 : This is the code to normalize an intermediate-form yy It is 
154 ; branched to from many places in the code. It expects the 
155 : unnormalized satoracy {ase>vere number on the stack. the normalized 
} gi 3 number is stored in (R8) 
133 INTSSNORMALIZE: 
1 TSTB — — ; Is the number already normal? 
199 i BEQL : Maybe not. (May be zero.) 
196 : Come here * the number is already normal. Copy it to the result 
1 3 area and then check for underflow and overflow. Note that this cede 
196 3 knows the intermediate-form number is 1 bytes’ long. 
166 : MOVa = (SP), (RB) : Copy the number 
16 MOVL (SPS, B(RB) : 
198 BRB 3; Check for fault and return 
170 3 The number is unnormalized or it is zero. If all of the digits of 
7) : the fraction are zero then the number is zero. 
138 5s: SKPC #0, MINTSK_I_FRACT_L, INTSP_I_FRACT (SP) 
174 : Find first non-zero byte 
175 SUBL RO,#INTSK_I_FRACT_L,R4 : tdi to byte In Trea base 
176 ADOL R4 RS ; Fo hah h diate to digits 
17 BITB #*XFO,(R1) : digit — 
178 BEQL 3$ : ar} 
179 DECL RG itt one less 
180 3$ ASHP 4, #INTSK_I_FRACT_D, INTSP_ ' °FRACTCSP) #0, 
181 #INTSK_I_FRACT_D, INTSP_I_FRACT(R8) 
136 7 Normalize and store fraction 
i BEQL 6$ Br if fraction is zero 
184 SUBW3 = R4,, INTSW_I_EXP(SP), INTSW_ 1_EXP(R8) 
a 7 Adjust and store exponent 
18° : Now check for overflow and underflow. 
189 ds: CMPW 0s INTSW_I_EXP(R8) ,MINTSK_I_EXP_HI 
190 7 3 exponent too big? 
191 BGTR 7$ es, give message 
136 CMPW INTSW_I_EXP(R8) ,MINTSK_] exe LO 
19 ; Is"exponent too small? 
194 BLSS 8$ : Yes, give message 
195 MOVL #1,R0 : No, indicate success 
138 5$ ADDL2 #INTSK_I_LEN,SP ; Remove temp from stack 
8 RSB : Return to caller. 
199 ; Come here if the fraction is zero to store a clean exponent. 

1 ds: CLRW INTSy_ 1_EXP(R8) ; Set exponent to zero 

§ MOV ; Indicate success 

ADDL2 aint K_I_LEN,SP 3; Remove temp from stack 
. 7 RSB 3; Return to caller. 
6 : Come to 7$ on overflow. Signal INTEXPOVE. 


i 


00000000" 8F 


02 RS 
3 


00000000 ' GF 


; Come to 8$ on underflow. Signal INTE 


5$ 


tet 


#COBS_INTEXPOVE 
$$ 


See ERA 
I FRACT_D,INT 


#) ,6°LIBSSI6NAL 
RO 


RSE =188e 3:06 


AX/VMS P 
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XPUND. 


3; Intermediate exponent overflow 
a ae message and return to caller 
nte raed) * exponent underflow 

1 FRACTOR 
“set fract a to zero 
; Print message for user 
jnevcote failure 

e 


sb 
; turn to caller 
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1-01 COBSCVTWI_R8 Convert Word to Intermediat 6-SEP=1984 10:46: COBRTL.SRCIJCOBINTER.MAR; 1 (6) 
i 18 -SBTTL COBSCVTWI_R8 Convert Word to Intermediate 
7A QO ;+4 
3 1 ; FUNCTIONAL DESCRIPTION: 
cA § : Convert a 16-bit (word) integer to intermediate 
ZA 5 : CALLING SEQUENCE: 
Bra S : JSB COBSCVTWI_R8 (scale.rl.v, src.rw.r, dst.wx.r) 
A : : Arguments are passed in R6, R7 and R8. 
O7A 1 : INPUT PARAMETERS: 
O7A : : SCALE.rl.v The power of ten by which the internal 
QO7A 4; ie fh oe poe yy of the source must be 
QO7A 5 3 multiplied to scale the same as the 
84 — internal representation of the dest. 
Bra + 3 SRC. rw.r The number to be converted 
84 3 > IMPLICIT INPUTS: 
Q07A 40 ; 
84 re 3 ALL of the trap bits in the PSL are assumed off. 
007A ag > OUTPUT PARAMETERS: 
007A 44; 
84 rf : OST.wx.r The place to siore the converted number 
007A “3 > IMPLICIT OUTPUTS: 
84 349 | NONE 
007A 250: 
QO7A 51 ; FUNCTION VALUE: 
007A 26 3 
Q07A 53; 1 = SUCCESS, 0 = FAILURE 
007A 54; 
007A 55 ; SIDE EFFECTS: 
O7A 2$ 3 ’ 
O7A 2 8 Destroys registers RO through R8. 
Oya 589: 
O7A 260 ° 
nea 61 COBSCVTWI_R8:: 
SE oc 3 7A 8 SOBL2 #INTS$K_I_LEN,SP ; Make room on stack for result 
50 6 07D 6 CVTWL ; Get source as a longword 
02 aE 12 50 F9 0 ! 64 CVTLP RO, #ENTSK_I_FRACT_D,INTSP_I_FRACT(SP) 
65 3; Store as fraction part 
6€ 12 56 Al 0085 66 ADDW3 RO, #INTSK_I_FRACT_D, INTSW_I_EXP(SP) 
9 6 ; Compute and store exponent 
FFB8O 31 0089 68 BRW INTSSNORMAL I ZE 3; Normalize and return. 
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Hn 93:46:45 2 ° 3) I 
-SBTTL COBSCVTLI_R8S Convert Longword to Intermediate 


FUNCTIONAL DESCRIPTION: 
Convert a 32-bit (longword) integer to intermediate 
CALLING SEQUENCE: 
JSB COBSCVTLI_RS (scate.rl.v, src.rl.r, dst.wx.r) 
Arguments are passed in R6, R7 and R8. 
INPUT PARAMETERS: 
SCALE.rl.v _ power of ten by which the internal 
a FR meg Be gl may of the source must be 
tiplied to scale the same as the 
internal representation of the dest. 
SRC.rl.r The number to be converted 
IMPLICIT INPUTS: 
ALL of the trap bits in the PSL are assumed off. 


OUTPUT PARAMETERS: 


| 

OST. wx.r The place to store the converted number 
IMPLICIT OUTPUTS: | 
NONE | 


di 
Co 
pS 
5g :* 
74; 
fs 
7 
ig 
i; 
4 
¢ 
a 
ts 
9 
90 
3 
38 
94 
95 
9 
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SOCCCOOSCSCOSCOOOOC OOOO OCSO SOOO OOOCOOOOO OOOO OOOOOOOOOCOOOOOCOoOO 
OOO 0000 60 09 00 G9 09 60 0D 09 Gd 09 CD CD CD CD Cd Cd Cd CO CD CD CD GD CO CD CD CD GO CO CO CD COCO CO CUCDCDCDCDCDODCDCDOD =f 5 
TR TE TOTO SCO IO IOCO OOOO 2 
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99 
00 
01 
C 8 
— bz FUNCTION VALUE: 
: 8* 1 = SUCCESS, 0 = FAILURE 
: 0? SIDE EFFECTS: 
: 8 Destroys registers RO through R8. 
t 1] tee 
C \¢ 
C 13 COBSCVTLI_R8:: 
0c ce C 14 SOBL2 #INT$K_1_LEN,S ke room on stack for result 
02 aE 12 67 F F 315 CVTLP = (R7) ,#INTSK_f SFRACT _D, inise. 1_FRACT(SP) 
4 16 Store source as fraction part 
6E 12 56 AI 4 1 ADDW3 R6,#INTSK_I_FRACT_D, INTSW_ I “EXP (SP) 
8 8 ; Compute and store exponent 
FF71 31 8 1 BRw INTSSNORMAL IZE 3; Normalize and return 


FUNCTION VALUE: 
1 = SUCCESS, 0 = FAILURE 
SIDE EFFECTS: 
Destroys registers RO through R8. 
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83 1 -SBTTL COBSCVTQI_R8 Convert Quadword to Intermediate 
9B § 344 

2 : FUNCTIONAL DESCRIPTION: 

098 $ ; Convert a 64-bit (quadword) integer to intermediate 

098 8 ; CALLING SEQUENCE: 

8 JSB COBSCVTQI_RS (scale.rl.v, src.rq.r, dst.wx.r) 

096 § ; Arguments are passed in R6, R7 and RB. 

098 4 : INPUT PARAMETERS: 

098 § : SCALE.rl.v The power of ten by which the internal 
—88 ——— of the source must be 
0 8; multiplied to scale the same as the 
8 9; internal representation of the dest. 

8 40 ; SRC.rq.r The number to be conwerted 
00 > IMPLICIT INPUTS: 

8 ALL of the trap bits in the PSL are assumed off. 
09 : OUTPUT PARAMETERS: 

8 DST.wx.r The place to stcre the converted number 
90 ; IMPLICIT OUTPUTS: 
00 ; NONE 
00 : 
00 3 
00 3 
00 ; 

0 3 

0 3 

0 3 

0 3 

0 3 

0 3 
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COBSCVTQI_R8:: 
> 2 SOBL2 4134 EN, 5P ; Make room on stack for result 
04 a7 67 OFF TF CE CMPV = #31, #17 (R7) ,4(R7) ; Is number in Longword range? 
oc 1 BNEQ 1$ ; Br if not to do slower code 
02 aE 12 67 F CVTLP = (R7) ,#INTSK_I_FRACT_D, INTSP_I_FRACT(SP) 
0 ; Store source as fraction part 
6€ 12 56 Al ADDW3 R6,#INTSK_I_FRACT_D, INTSW_1_EXP(SP) 
AF ; Compute and store exponent 
FFSA = 31 8 BRW INTSSNORMAL I ZE ; Normalize and return 
oe 3; Come here if the number is not in longword range. 
SE 14 4 is: SUBL2 #20,SP ; Allocate temp space 
6—E OA O04 a47 F 08 CVTLP «= 4(RP) #10, (SP) ; Convert high order longword 


— ç — — — — — —— — — — — — —— — —— — — — ——— —— — — — — — 
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#BIAS_DIGITS, BIAS ,#10, (SP) ,#19,8(SP) 


3 Multiply by 2**32 
(R7) ,#10, (SP) : — ert low order longword 


: f nonnegative 
#BIAS_DIGITS,B1AS,#10, (SP). 

: Correct for signed conversion 
#10, (SP) ,#19,8(SP) 3; Sum low and high order parts 


a~- 
oo 


Try to fit the number in 18 digits. If this succeeds, we can use the 
normalize exit. If not, we must truncate one low order digit. 


#0,419,(R3) ,#0,#INTSK_I > * INTSP_I_FRACT#20(SP) 
o fit 75718 digits 
3$ 198. egectat work. 
R6,#INTSK_I_FRACT_D, mural. ; * 0< 
: Exponent with scale factor 
: Remove local temps 
Teo SC ORMALIZE 3; Normalize and return 


3 Come here if we have 19 digits. We must truncate to 18 digits and 
: compensate for the right shift in the exponent. 


SOOOCOCOCCOCOCOOOCOOOCOOCOOOCOOOOOOOCOOOOOCOOoOOoOSe 

— MMMMMMMMMMNMoOOCSTVTVTVTVTIOMOMOOOoW oF 
ADOHSSAOOOOO BAO BAAN N  S POF SNP re 
PPLE FE FANN AAAAA AMA — 
SOOCCCOCOCWOOOOOOOOOWMccocDcNCN COC CO 
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0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


#-1,419,(R1) #0, MINTSK_I “ee ⸗ (R3) 
low digit of result 
R6,MINTSK_I_FRACT_D+1, Intsu. t PexPs20(8P 
: Exponent with scale factor 
3; Remove local temps 
Teo SC ORMALIZE 3: Normalize and return 


— 
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-SBTTL COBSCVTFI_R7 Convert Floating to Intermediate 


FUNCTIONAL DESCRIPTION: 

Convert single-precision floating to intermediate 
CALLING SEQUENCE: 

JSB COBSCVTFI_R7 (src.rf.r, dst.wx.r) 

Arguments are passed in R6 and R7. 
INPUT PARAMETERS: 

SRC.rf.r The number to be converted 
IMPLICIT INPUTS: 

ALL of the trap bits in the PSL are assumed off. 
OUTPUT PARAMETERS: 


Se ie — Bi Bi Di i Bi Bie Bie Bs — es Be — Be Be Bes — Bs Bs Bs Be Be De Be es Re Bs Be De | — 2 


—— 
ae ns Den i Bs Be Dn Da Dn Ba Bas Dns es i Ba Be Dn Be Bs a i i a 
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DST. wx.r The place to store the converted number 
F IMPLICIT OUTPUTS: 
$e NONE 
$$ FUNCTION VALUE: 
$3 1 = SUCCESS, 0 = FAILURE 
OF re SIDE EFFECTS: 
oF 8 Destroys registers RO through R7. 
ge aes 
OF $$ COBSCVTFI_R7:: 
SE 21 ge OF 4 SOBL2 #INTSK_I_FRACT_D+7+8,SP ; Result string and value 
6—E 66 6 19 $3 CVTFD = (R6) , (SPY : Put value on the stack 
i 39 : Build a static descriptor pointing to the text area. 
08 AE OOF «(01 3 : PUSHAB 8(SP) ; Address = space left 
7E 01 90 0108 45 MOVB #DSC$K_CLASS_S.-(SP)  ; Class = static 
7E +3 90 Q1 54 MOVB #DSCSK_DTYPE be 3 Type = ASCII text 
7E 1 80 195 32 MOVW #INTSK-I_FRACT_D#7,-(SP) ; String Length 
111 3? > Call COBSCNVOUT. 
12 D 2111 35 7 USHL #INTSK_I_FRACT_D : Number of digits in fraction 
04 AE F 0113 60 PUSHAB 4(SP) 3; Address of descriptor 
10 At OF 118 61 PUSHAB 16(SP) ; Address of value 
00000000 ° GF 9 F 11 186 CALLS #3,G*COBSCNVOUT ; Convert to E format : 
1F 50 =C*€E 120 46 BLBC RO,1$ 3; Should never fail 
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4 COBINTE wei * 


r 
:46:32 CCOBRTL. SRCICOBINTER.MAR: 1 


nt 
Fl 
464 ;+ 
465 ; Sitting on the stack now is the result string, at 16(SP). 
466 ; The string is INTSK_I_FRACT_D+7 characters in Length and is in 
3 the following format: 
: +0 .ddddddddddddddddddE+ee 
F 
: 
9 
9 
C 
E 
41 
6 
4 
4 
4 
4 
4 
4 


471 ; We will put the digits into the intermediate form number, with the 
3 sign, and the number Tot loying the E will go into the exponent. 
AS ; Note that the number in this form is already normalized. 
12 A 10 A 475 MOVB 16(SP),18(SP) : Put sign on top of *’."’ 
02 a7 12 5 AE 5 9 476 CVTSP HINTSK.1_FRACT_D, 18(SP) #INTSK — —— — 
47 eect the fraction 
6E 02 26a 02 09 478 CVTSP #2, INTSK_I_FRACT_D+20(SP3 ,#2, (SP) 
47 3; Make packed exponent 
51 6€ 02 36 480 CVTPL #2,(SP),R1 : Make exponent binar 
481 : (also clears RO 
| 6te & ¢ CVTLW RIL INTSW_I_EXP(R7) 3; Store as exponent of int. number 
30 D6 4 INCL ; Indicate success, RO = 1 
5E 29 «C0 484 ADDL2 #INTSK_I_FRACT_D+7+8+8,SP ; Delete stack temps 
05 8 RSB ; Return to caller 
189 
48 
488 


3+ 

3 Come here on failure of COBSCNVOUT. Since any etague-orec ta ten 
: floating number can be represented in the intermed 

489 ; represents an OTS failure. 

491 is: PUSHL #OTS$_FATINTERR : Fatal error in OTS 

492 CALLS #1,G*CIB$STOP 


ate form, this 


00000000°8F DD 
00000000'GF 01 FB 


OOOOOOOOOIOIDOEOOIO0DCOOIOOCOIOOCIOCOOODCOSOOOOOOCSO 
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FORS INTER Hetty jnverged 
1 COBSCVTDI_R7 Convert Double to Intermedi Beeb b84 LCOBRTL. SREICOBINTER MAR: 1 (10) 
4 83 .STIL COBSCVTDI_R7 Convert Double to Intermediate 
14F 496 ;+4 
8 437 3 FUNCTIONAL DESCRIPTION: 
8 639 : Convert double-precision floating to intermediate 
14 84 ; CALLING SEQUENCE: 
8 JSB COBSCVTDI_R7 (src.rd.r, dst.wx.r) 
14r 08 ; Arguments are passed in R6 and R7. 
gig Uf PARAMETERS: 
Old 309 : SRC. rd.r The number to be converted 
14 i > IMPLICIT INPUTS: 
O14 318 : ALL of the trap bits in the PSL are assumed off. 
O14F 313 3 OUTPUT PARAMETERS: 
Bee aA : DST.wx.r The place to store the converted number 
O14F 519 : IMPLICIT OUTPUTS: 
O14F 520 ; 
Bier 2 13 NONE 
Ol4F 3 5 > FUNCTION VALUE: 
Ol4F 3 3 ; 1 = SUCCESS, 0 = FAILURE 
O14F 3 f > SIDE EFFECTS: 
O14F 529: Destroys registers RO through R7. 
O14F : 0; 
Bice 8a 
14F 5 COBSCVTDI_R7:: 
SE 21 3 14F 4 SOBL2 #INTSK_I_FRACT_D+7+8,SP ; Result string and value 
6— 66 138 5 MOVD (R6), (SPY : Put value on the stack 
is ; : Build a static descriptor pointing to the text area. 
08 AE OF 015 9° PUSHAB 8(SP) ; Address = space left 
7 01 90 0158 40 MOVB #OSCSK_CLASS_S,-(SP) 5 Sloss. = static 
— 1146 90 138 41 MOVB #OSCSK_DTYPE ie. 3 tat text 
76 19 B0 136 4¢ MOVW #INTSKTI_FRACT_D+7,-(SP)'; tring Length 
161 44 ; Call COBSCNVOUT. 
12 DD 0161 46 ; PUSHL #INTSK_I_FRACT_D ; Number of digits in fraction 
04 AE F 0163 4 PUSHAB 4(SP) : Address of descriptor 
10 af 9F 0166 4 PUSHAB —1428 Address of value 
00000000 ' GF 9 F 19? 4 CALLS #3,G*°COBSCNVOUT ; Convert to E format 
fF 50~=CO*E 170 50 BLBC RO,1$ : Should never fail 
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+ 

Sitting on the stack now is the result string, at 16(SP). 

The string is INTSK_I_FRACT_D+7 characters in Length and is in 
the following format: 


+0.ddddddddddddddddddE+ee 


We will put the digits into the intermediate form number, with the 
sign, and the number eae bag the E will q° into the exponent. 
Note that the number in this form is already normalized. 


MOVB 16(SP),18(SP) ; Put sign on top of *’. 

CVTSP #INTSK_1_FRACT_D,18(SP) -MINTSK_I PRACT D. INTSP_I_FRACT(R7) 
2 c e Ss j 

CVTSP #2, INTSK_1_FRACT_D+20(SP§ ,#2, (SP) . 

3; Make packed exponent 


12 “g 
02 47 12 12 AE 
6—€ 02 26AE 02 09 


AOEOQOOOCOOCMUIMIUIUVINIVIWN Oa 


51 6€ O02 3% CVTPL #2,(SP),R1 3; Make exponent snecy 
3 (also clears RO 
67 51 F7 CVTLW RL INTSW_I_EXP(R7) ; Store as exponent of int. number 
50 06 INCL ; Indicate success, RO = 1 
SE 29 c9 ADDL2 #INTSK_I_FRACT_D+7+8+8,SP ; Delete stack temps 


. : Return to caller 
; Come here on failure of COBSCNVOUT. Since any double-precision. | 
: floating number can be represented in the intermediate form, this 
3 represents an OTS failure. 
is: PUSHL #OTSS$_FATINTERR ; Fatal error in OTS | 

CALLS #1,G*CIBSSTOP 


SQN NNO 


DONA AP IIS OOoo Wo Aan oD OOO On enOe o~ 


Q0000000"8F oD 
00000000'GF 01 FB 


— 
oO 
22 
rm 
oo 
wo 
0000000000000000000000000000 
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1 -SBTTL COBSCVTPI_RO Convert Packed to Intermediate 


{FUNCTIONAL DESCRIPTION: 
; Convert a packed integer to intermediate 
; CALLING SEQUENCE: 

; JSB COBSCVTPI_RO (scale.rl.v, srclen.rl.v, src.rp.r, dst.wx.r) 
: Arguments are passed in R6, R7, RB and RI. 
; INPUT PARAMETERS: 

; SCALE.rl.v The power of ten by which the internal 
3 cottipt ied torscate the sone ai tne" 
gzigchoeti. —— 
SRC.rp.r The number to be converted 

; IMPLICIT INPUTS: 

: ALL of the trap bits in the PSL are assumed off. 

: OUTPUT PARAMETERS: 

: DST.wx.r The place to store the converted number 
; IMPLICIT OUTPUTS: 

; NONE 

3 FUNCTION VALUE: 

; 1 = SUCCESS, 0 = FAILURE 

; SIDE EFFECTS: 

; Destroys registers RO through R9. 

C 


OBSCVTPI_R9:: 
kk ——— SOBL2 #INTSK_I_LEN,SP ; Make room on stack for result 
12 57 OI CMPL R #INTSR_I_FRACT_D ; Will all digits fit? 
12 14 BGTR 12 : No, must take significant ones. 


+ 
Come here if all of the digits of the source will fit in the 
intermediate-form fraction. This is handled as a special case 
because it occurs often and it saves having to scan the source 
100k ing for the most significant byte. (Note that this is done 
in NORMALIZE anyway, so we don't save all that much.) 


ASHP ⸗0, R7, (RB) ,#O, MINTSK_I_FRACT_D, INTSP_1_FRACT(SP) 
; Copy source fo fraction 


02 aE 12 00 68 57 OO F8 


SOOCCOOOCOOOCOCOCOOOOOOSOSOOCOOSOOSOSOSSSOOSOSCOOOSCOCOOOCOOOOOOOOOOOOOOO 
WINAAINIWIAIGRRPINIDININININININ 2 3 OO SM QDOOCOOOOCOCOOCOOOOOOO0O0O0 OWE 
NOME WN @§ OOD NAME OD NAME WN SO EWN 9 ODNAU EW O ODNOUS Wry 
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6—E 12 56 Al O1AF 638 ADDWS R6,#INTSK_I_FRACT_D, INTSW_1_EXP(SP) 
183 ; Compute and store exponent 
58 2 0 018 640 MOVL R9,RB 3; Point RB to destination 
FE 1 186 641 : BRW INTSSNORMALIZE : Normalize and check for overflow 
189 $08 : Come here when the source will not fit in the fraction part of an 
189 644 ; intermediate form number. We must scan the source oiq't9 Looking 
189 645 ; for the most significant (non-zero) digit. The result will be 
189 966 3 normalized, so the NORMALIZE exit wil! take its fast path, just 
189 8 3 checking for overflow and underflow. 
$4 57 ef 78 0189 649 128: ASHL #-1,R7,R4 ; Compute Length in bytes = 
4 8 9 8 INCL 5 digits/ + 1 
68 54 | 1¢ 651 SkPC #0,R4, (RB) ; Find first non-zero byte 
54 8 164 $26 SUBL RO,R4 ; Convert to byte offset from base 
ay 1¢7,—s 65 ADDL R4,R4 ; Convert bytes to digits 
02 57 E€8 OICA 654 BLBS R7,125$ 3; If number is even=length 
54 «(07 Bree 655 DECL R 3 allow for one high order zero 
61 F0 of 93 OICF 626 125$: BITE #*XxXFO,(R1) : Is high digit non-zero? | 
2 12 0103 65 BNEQ 13$ ; Br if not 
54 606 8103 $28 7 INCL R4 3; Count one more high order zero 
01D7 660 ; R& now contains the number of nig order zeros in the input number. 
0107 661 ; R7-R4 is thus the number of significant digits. We want to shift the input 
0107 O36 3; number into the result such that the most significant digit is in the 18th 
0107 6635 ; digit gost ion. Therefore compute the shift amount as 15-(R7-R4), or 
01D7 664 ; R4 - R7 + 18. 
3 665 ;- 
54 57 C2 0107 666 13$:  SUBL2 R7,R4 
54 12 CO O1DA 667 ADDL2 #18,R4 
02 AE 12 00 68 57 54 FB O1DD 668 ASHP —s_- R4,, R7, (RB) , WO, MINTSK_I_FRACT_D, INTSP_I_FRACT(SP) 
O1E5 669 : Normalize and store fraction 
56 54 C2 O185 670 SUBL R4,R6 3; Adjust scale 
6€ 12 56 Al O1E8 671 ADDWS R6,#INTSK_I_FRACT_D, INTSW_I_EXP(SP) 
O1EC 67 3; Compute and store exponent 
58 59 pO OI1EC 67 MOVL R9,RS 3; Point R8 to destination 
FEIA 31 OEF 674 BRu INTSSNORMALIZE 3; Normalize and check for overflow 


ow 
@ 
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-SBTTL C°BSCVTIW_RS Convert Intermediate to Word 


rogue 


an 
SS 
PO 
or 
<= 

— — 


i 
0 
a 
4 FUNCTIONAL DESCRIPTION: 

1 3 Convert an intermediate number to word (16-bit) integer. 
$ ; CALLING SEQUENCE: 

53 JSB COBSCVTIW_R8 (scale.rl.v, src.rx.r, dst.ww.r) 

; Arguments are passed in R6, R7 and R8. 

:) 
0 
1 


; INPUT PARAMETERS: 


DOODWOOOODOOOOONNN™S a 


PAELLA AAAAAAAAAAO 


: SCALE.rl.v The power of ten by which the internal 
692 ;: tp ph ep he gay of the source must be 

: multiplied to scale the same as the 

: internal representation of the dest. 

3 SRC.erx.er The number to be converte 

> IMPLICIT INPUTS: 

: ALL of the trap bits in the PSL are assumed off. 

: OUTPUT PARAMETERS: 

: DST.ww.r The place to store the converted number 
: IMPLICIT OUTPUTS: 

; NONE 

? FUNCTION VALUE: 

; 1 = SUCCESS, 0 = FAILURE 

: SIDE EFFECTS: 

; Destroys registers RO through R8. 


COBSCVTIW_R8:: 


— — — — — — — — — 3 ED 
Ooo o 


JJ⏑ = £ 
SNS AACA AOO 
OOOGOOCCOCOCOOOOOOOnO 
co We 20 


à—— ee — — — — re eee 22 


öOOOOOOOOOIOOIOOOOOSOCOOOCOOOSOOOCSOOSOOIOOOOOIO SOOIOOSOOOISOSOOIOOIOOOOOCSOOI SOO)I OSO 


FIR RI RI RIDIN a a a a tn nt at a a a wt a hs Ss hs hs hs Ss Ss ss a ee ⸗⸗— 


SN 


5E 04 (C2 SOBL2 #4,SP ; Make room for temp storage 
0063 8F 67 81 1 CMPW Nf$W_I_EXP(R7), #INTSK_I_EXP_HI ; Bigger than biggest ? 
A 16 ¢ BGTR ; Yes, overflow 
FFOD 8F 67 81 C CMPW NTSW_I_EXP(R7), #INTSK_I_EXP_LO ; Smaller than smallest 
; 19 1 4 BLSS 3$ 3: Yes, underflow 
02 A % 3 5 TSTB NTSP_I_FRACT(R7) ; Is source zero? 
20 1 $ — ; Yes, return zero. 
56 6 A ADDW INTSW_1_EXP(R7) ,R6 3; No, compute adjusted scale 
36 12 A 8 SUBWo © #INTSR_T_FRACT_0.R6 
0 38 ; — 9 CVTWB = R6 RO : Shift count a signed byte? 
1 4 1 0 BVS ; No spec iat aa" ing 
6€ 05 00 O2a7 12 56 F 13 1 ASHP =——- RE, MINTSK_I_FRACT_D, INTSP_I_FRACT(R7) .#0,85, (SP) 
18 2 :"SEale and integerize fraction 


— 


1 
51 6E 03 
68 51 
oA 
0 
SE 04 
15 56 OF 
50 
SE 04 


00000000 ' 8F 
00000000 ' GF 2 


68 
0 01 
E 04 


COBOL int 
COBSCVTIW 
1D 18 
36 19 
F7 1 
be ¢ 
eB Gee8 
C 
C 
; 
£0 0956 
0230 
D4 0230 
co 0 ¢ 
05 O 
0236 
38 
pp 0536 
FB 023C 
11 0243 
0245 
0245 
0245 
0245 
B4 0245 
DO 84 
CO 0244 
05 024D 


22 
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ate Conversion 


N 
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i a tat 9 
BVS us 
CVTPL «=#5,(SP),R1 


CVTLW R1, (RB) 
BVS 11$ 


INCL RO 
ADDL2 #4,SP 
RSB 


3* 

fos: BBS #15, R6, 148 
: rror return. 

11S: 


CLRL RO 

ADDL2 #4,SP 

‘ RSB 

; Come here on the reserved operand. 


{3$:  PUSHL #COB$_INTRESOPE 
CALLS #1 ,G°CIBSS1GNAL 


i 
° 
3 
4 
5 
; 
5 
0 
1 
§ 
4 
5 
; 
9 
0 
1 
§ 
4 
5 
6 
7 
8 
2 
9 
1 


SNS SSNS eee 


3 for ASHP. Return zero. 


763 14$: CLRW = (RB) 
764 MOVL 4#1,RO 
765 ADDL2 #4.SP 
766 SB 


4 


foi4 
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Won't fit in 5 digits, error 
Make a longword 

(also clears RO) 
Store result as a word 
Cannot, indicate an error 
Indicate success, RO = 1 
Remove temp from stack 
Return to caller. 


Come here if the shift count is not in signed byte range. If it is 
positive, an overflow exists. If it is negative, return zero. 


Branch if negative 


— here if the number cannot be represented in 16 bits. Give an 


Indicate failure 


; Remove temp from stack 


Return to caller. 


Signal and give an error return. 


: Intermediate reserved operand 
; Print message for user 


Indicate failure and return. 


3; Come here if the source is zero or if the shift count is too small 


Store zero in destination 
Indicate success 
Remove temp from stack 


; Return to caller. 


18 
(12) | 
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~SBTTL COBSCVTRIW_R8 Convert Rounded Intermediate to Word 


— coastvt 


+e 
3; FUNCTIONAL DESCRIPTION: 
Convert an intermediate number to word (16-bit) integer. 
CALLING SEQUENCE: 
JSB COBSCVTRIW_RS (scale.rl.v, src.rx.r, dst.ww.r) 
Arguments are passed in R6, R7 and R8. 
INPUT PARAMETERS: 
SCALE.rl.v — power of ten by which the internal 
ef meg he gh on of the source must be 
tiplied to scale the same as the 
internal representation of the dest. 
SRC. .rx.r The number to be converted 
IMPLICIT INPUTS: 


ALL of the trap bits in the PSL are assumed off. 


CoNAUES WR OOO OU i "OO O00 


GN 
Oo 
o 
Be Se Ge Ge Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Se Se Se Ge Ge Ge Se Ge Ge Se Se Ge Ge Ge Se Ge Ge Ge Se Se Se 


(C9 CO CO CD C9 C909 09 08 NINN SII NINO OO 


OOOoooceoo 


BoB BB BB BPE PPE PPP PPP PEE 22 


SAS BN LPFG OO S$ MM MMM MMMM MMMM MMMMMMMMMMMMMMMmMmMmmmmmmmmmMnmMmmrmnccmhrn ——* 
~ 
oO 


3 ag, OUTPUT PARAMETERS: 
0 ri 795 DST. ww.r The place to store the converted number 
0 4 79 IMPLICIT OUTPUTS: 
4 798 
024 799 NONE 
8 4 00 
9 ri 89 FUNCTION VALUE: 
8 4 0 1 = SUCCESS, 0 = FAILURE. 
4 ape 
rs 8 SIDE EFFECTS: 
: B07 Destroys registers RO through R8. 
4 09 ;-- 
4 10 
4 11 COBSCVTRIW ve 
SE 04 C2 4 1 SUBL #4 SP room for temp storage 
0063 8F 67 8 5 1 CMPU INT SW_1_EXP(R7), #INTSK_| ExPe HI ; ; Bigger than biggest ? 
A 4 5 14 BGTR 13$ overflow 
FFOD 8F 67 B1 025 15 CMPW INTSW_1_EXP(R7), #INTSK_I_EXP_LO ; E ieoliae than smallest 
3 1 5 16 BLSS 3$ : Yes, underflow 
02 a7 9 5 1 TSTB INTSP_I_FRACT(R7) : Is source zero? 
70 1 6 18 BEQL 14$ ; Yes, return zero. 
26 6 A 6 1 ADOW INTSW_I_EXP(R7) ,R6 ; No, compute adjusted scale 
812 4 6 0 SUBW 4 ISR _T_FRACT_6,R6 
50 38 ; 6 1 CVTWB mp ,RO p Bette count ® si ned byte? 
1 4 6 § BVS 10$ spec Jal * “i 
6€ 05 05 O2a7 12 5S F : ASHP =—s-R6,, MINTSK_I_FRACT_D, intsé_ ' FRA T(R7) — 
4 :"S€ale and Meolertar — 


m —— ⸗ — — — — —— — — — — — — — — —— — — — —— — — — —— — — — 
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1 D 77 5 BvS 118 ; Won't fit in 5 digits, error 
51 6€ 8 3 79 § CVTPL 15° (SP) RI ; Make a longword 
7D : (also clears RO) 
68 51 F7 70 3 CVTLW 81,668) ; Store result as a word 
8 1D — BVS 11$ ; Cannot, indicate an error 
0 oO 0 INCL RO : Indicate success, RO = 1 
SE 04 5 4 1 ADDL2 #4,SP ; Remove temp from stack 
7 § J RSB 3; Return to caller. 
4 : Come here if the shift count is not in signed byte range. If it is 
5 ; positive, an overflow exists. If it is negative, return zero. 
15 56 OF €0 : ; fos: BBS #15,R6,14$ : Branch if negative 
C 9 : Come here if the number cannot be represented in 16 bits. Give an 
Bc 9 error return. 
50 64 t 4g 11s: CLRL_ RO ; Indicate failure 
SE 04 CO 8E 4 ADDL2 4#4,SP ; Remove temp from stack 
05 0 4. 4 RSB ; Return to caller. 
o : 18 : Come here on the reserved operand. Signal and give an error return. 
Q00000000°8F DD 029 848 13$: PUSHL #COBS_INTRESOPE : Intermediate reserved operand 
00000000'GF 01 FB 0298 33 CALLS #1,G*CIBSSIGNAL ; Print message for user 
&B 11 0 Hi 850 k BRB 11§ : Indicate failure and return. 
8 $26 : Come here if the source is zero or if the shift count is too small 
8 9 ; for ASHP, Return zero. 
68 B84 8 55 las: CLRW (R8) ; Store zero in destination 
50 01 DO O2A3 56 MOVL #1,R0 3; Indicate success 
SE 04 CO 84 57 ADDL2 4#4,SP 3; Remove temp from stack 
05 O2A9 58 RSB ; Return to caller. 


pana 
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60 -SBTTL COBSCVTIL_RB Convert Intermediate to Longword 


SIDE EFFECTS: 
Destroys registers RO through R8. 


Morn 


UDOPUOMDOPVOSS >> >b>eee> 


COBSCVTIL_R8:: 


SOOGOGOOOOO 000000000 0000000000900 C0 0000 00 ~y 


AA 

MH an. 

AA 63 ; FUNCTIONAL DESCRIPTION: 

- 8 Convert an intermediate number to longword (32-bit) integer. 
AA $ > CALLING SEQUENCE: 

J JSB COBSCVTIL_RB (scale.rl.v, src.rx.r, dst.wl.r) 

AA 4 ; Arguments are passed in R6, R7 and RB. 

AA 74 : INPUT PARAMETERS: 

AA 75 : SCALE.rl.v The power of ten by which the internal 
5 AA 8 : tn ph tag bo pha of the source must be 
AA 77 3 multiplied to scale the same as the 
AA 8 3 internal representation of the dest. 

- 33 SRC. rxeer The number to be converted 
0 AR é 1; IMPLICIT INPUTS: 
8 - 4 5 : ALL of the trap bits in the PSL are assumed off. 
im 8 3 : OUTPUT PARAMETERS: 
~~ : i : DST.wl.r The place to store the converted number 
4 8 3 ; IMPLICIT OUTPUTS: 
gAA 1: NONE 
shh > FUNCTION VALUE: 
; 5 : 1 = SUCCESS, 0 = FAILURE 
2: 
8; 
9; 
900 ; 
3) 
304 
9 
9 
9 
9 
9 
9 
a 
9 
9 
9 
9 
9 
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5E 08 C2 SOBL2 #8,SP ; Make room for teap storage 
0063 8F $ 81 5 CMPW 8=s INT S$W_I_EXP(R7), MINTSK_I_EXP_HI ; Bigger than biggest ? 
Qe.’ — BGTR ; Yes, overflow 
FFOD 8F 67 81 CMPW NTSW_I_EXP(R7), MINTSK_I_EXP_LO ; Smaller than smallest 
9 19 3 BLSS 3$ ; Yes, underflow 
02 A 93 TSTB NTSP_I_FRACT(R7) ; Is source zero? 
3A 10 BEQL 48 ; Yes, return zero. 
56 67 A 11 ADDW INTSW_1_EXP(R7) ,R6 ; No, compute adjusted scale 
36 12 A 1 SUBW2 #INTSR_T_FRACT_D,R6 
56 5 1 CVTWB = =R6,RO ; Shift count a signed byte? 
16 18 14 BVS ; No spec iat anne ing 
6 OA 00 O02 a7 12 56 F 15 ASHP =—s-R6, MINTSK_I_FRACT_D,INTSP_I_FRACT(R7),#0,#10,(SP) 
16 : Scale and integerize fraction 
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10 

68 6€ OA 
OA 

50 

SE 08 

15 56 «OF 
50 

SE 08 
00000000 * 8F 
Q00000000'GF 01 
EB 

68 

50.001 

SE 08 
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Won't fit in 10 digits, error 
Make a longword 

(also clears RO) 
Cannot, indicate an error 
Indicate success, RO = 1 
Remove temp from stack 
Return to caller. 


BVS Ais 

CVTPL) «= #10, (SP), (RB) 
BVS 11$ 

INCL 3 

ADDL2 #8,SP 

RSB 


+ 


Come here if the shift count is not in signed byte range. If it is 
positive, an overflow exists. If it is negative, return zero. 


BBS #15,R6,14$ 


Come here if the number cannot be represented in 32 bits. Give an 
error return. 


Se meee Be Oe ee 
+o 
bad 


: Branch if negative 


— ⸗ eee 
—1— 

wf 

oe 


CLRL RO : Indicate failure 

ADDL2 #8,SP 3; Remove temp from stack 

. RSB ; Return to caller. 

: Come here on the reserved operand. Signal and give an error return. 


13$:  PUSHL #COBS_INTRESOPE ; Intermediate reserved operand 
CALLS #1,G*CIBSSIGNAL ; Print message for user 
116 ; Indicate failure and return. 
4* 
3; Come here if the source is zero or if the shift count is too small 
3; for ASHP. Return zero. 


148: CLRL 8) ; Store zero in destination 
MOVL #1,R0 ; Indicate success 
ADDL2 #8,SP 3; Remove temp from stack 
RSB ; Return to caller. 
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onvert Rounded Intermedia 6-SEP-1984 


COBRTL.SRCJCOBINTER.MAR; 1 
-SBTTL COBSCVTRIL_R8 Convert Rounded Intermediate to Longword 


FUNCTIONAL DESCRIPTION: 
Convert an intermediate number to longword (32-bit) integer. 
CALLING SEQUENCE: 
JSB COBSCVTRIL_RB (scale.rl.v, src.rx.r, dst.wl.r) 
Arguments are passed in R6, R7 and R8. 
INPUT PARAMETERS: 
SCALE.rl.v med power of ten by which the internal 
mot tpt ied torseate" these asthe" 
internal representation of the dest. 
SRC.rx.er The number to be converted 
IMPLICIT INPUTS: 
ALL of the trap bits in the PSL are assumed off. 
OUTPUT PARAMETERS: 
DST.wl.r The place to store the converted number 
IMPLICIT OUTPUTS: 
NONE 
FUNCTION VALUE: 
1 = SUCCESS, 0 = FAILURE 
SIDE EFFECTS: 
Destroys registers RO through R8. 


COBSCVTRIL + 
SUBL #8 room for temp storage 
CPW Inf Su. 1_EXP(R7), #INTSK_ i ENP HI ; ; Bigger : an b biggest ? 
over 
CMPW INT $W_I_EXP(R7), #INTSK_I_EXP_LO ; b testis then sneilest 
BLSS 3$ : Yes, underflow 
TSTB jay TSP_I_FRACT(R7) ; Is source * 
BEQL 4$ ; Yes, return 2 
ADOW INTSW_1_EXP(R7) ,R6 ; No, compute adjusted scale 
SUBW #INT wi Ss FRACT _b, R6 
CVTWB m2 ,R0 : sates * p signed byte? 
BVS 10$ spec iat ans ng 
ASHP R6, #INTSK_I_FRACT_D, INTSP_ ' O FRA T(R7) .#5,#10, (SP) 


: Stale and integerize fraction 


G 6 
OBSINTER COBOL ermediate Conversions 5-SEP-1984 1 VAX/VMS Macro V04-00 Page 24 
itt) COBSCVIRIL lead § Convert Rounded Intermedia ——— 4 13:06 $2 COBRTL. SRCICOBINTER MAR; 1 - (38) 
Won't fit in 18 digits, error 
Make a longword 

(also clears RO) 


BVS : 
CVTPL 418. «spy. crs) : 
BVS 11$ : Connet, indicate an error 


er a 1 


n 
RIL 
1 
g D INCL 3 ; Indicate success, RO = 
SE 0 ‘ ADDL2 #8,SP ; Remove temp from stack 
RSB ; Return to caller. 
* Come here if the shift count is not in signed byte range. If it is 
: positive, an overflow exists. If it is negative, return zero. 
1556 OF €0 ios: BBS #15,R6,14$ : Branch if negative 
; Come here if the number cannot be represented in 32 bits. Give an 
;_error return. 
50 D4 iis: RO : Indicate failure 
SE 08 ‘9 ADoL2 #8,SP 3; Remove temp from stack 
0 3; Return to caller. 


; Cone here on the reserved operand. Signal and give an error return. 


PUSHL #COBS_INTRESOPE 3 Intermediate reserved operand 
CALLS #1,G*CIBSSIGNAL :; Print message for user 
BRB 11$ ; Indicate failure and return. 


6 
we 
bad 


Q0000000'8F oD 
00000000 ' GF 2 fe 


F Gene here if the source is zero or if the shift count is too small 
for ASHP. Return zero. 


$: CLRL (RB) ; Store zero in destination 
MOVL #1,R0 3 Indicate success 
ADDL2 #8.SP ; Remove temp from stack 
RSB ; Return to caller. 
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onvert Intermediate to Qua 6-SEP-19 COBRTL.SRCICOBINTER.MAR; 1 
-SBTTL COBSCVTIOQ_RB Convert Intermediate to Quadword 


; "FUNCTIONAL DESCRIPTION: 

; Convert an intermediate number to quadword (64-bit) integer. 

; CALLING SEQUENCE: 

; JSB COBSCVTIOQ_RB (scale.rl.v, src.rx.r, dst.wq.r) 

; Arguments are passed in R6, R7 and RB. 

; INPUT PARAMETERS: 

; SCALE.rl.v The power of ten by which the internal 
gutiptied to scale the seme os the. 

3 internal representation of the dest. 

: SRC.rx.er The number to be converted 

; IMPLICIT INPUTS: 

; ALL of the trap bits in the PSL are assumed off. 

; OUTPUT PARAMETERS: 

: DST.waq.r The place to store the converted number 
: IMPLICIT OUTPUTS: 

NONE 

3 FUNCTION VALUE: 


1 = SUCCESS, 0 = FAILURE 
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; SIDE EFFECTS: 
: 13 Destroys registers RO through R8. 
: $ j-- 
C 5 COBSCVTIQ RB:: 
5E 18 C2 C § SOBL2 #24,SP ; Make room for temp storage 
0063 8F : 81 F 0 CMPW  =sINT$W_I_EXP(R7), #INTSK_I_EXP_HI ; Bigger than biggest ? 
5 14 64 3 BGTR : Yes, overflow 
FFOD 8F é B1 0366 10 CMPW NTSW_I_EXP(R7), #INTSK_I_EXP_LO ; Smaller than smallest 
7 #19 68 90 BLSS 3$ :; Yes, underflow 
02 A7 % 8 91 TSTB NTSP_I_FRACT(R7) ; Is source zero? 
61 1 5 BEQL ; Yes, return zero. 
56 67 A 7 09 ADDW INTSW_1_EXP(R7) ,R6 ; Compute adjusted scale 
36 12. A 7 9% SUBW2 #INTSR_T_FRACT_0,R6 
6 3 7 95 CVTWB = R6,, RO : Shift count in signed byte range? 
D 8 78 38 BVS ; No spec iat hangt ng 
6€ 13 00 O2a7 12 56 F 7D 109 ASHP = RO, MINTSK_I_FRACT_D, INTSP_I_FRACT(R7) ,#0,#19, (SP) 
385 1098 : Stale and integerize fraction 
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or” 
<= 

— — 
— 2 


or 


Pee 48) 


BVS iss z Won't fit in 19 digits, error 
CVTPL #19, (SP),(R8) 3; Attempt simple conversion 

: (also clears RO) 
BVS 11$ $ 


‘. ; Simple conversion failed. 
: Come here if the number can be represented by a ere which is 
3 Quite common. We can just spread the sign to the high 2 bits and 
3 return. 

, ASHL  #-31,(R8)+, (RB) 


IN 
ADDL2 #24,SP 
RSB 


& as 
oo 


68 88 €1 ef 78 : Spread sign 
3; Indicate success, RO = 1 
; Remove temp storage 


; Return to caller. 


+ 


: Come here if the number cannot be represented by a longword. The 
; correct low-order 32 bits have already been stored, we must now 
; compute the high-order 32 b 


i$:  BLBC «9 SP), 1158 ; Skip if positive 
SUBP4 #BIAS_DIGITS,BIAS_1,419,(SP) ; Make more negative 
115$: DIVP #BIAS-DIGITS.BIAS.#19,(SP),#19,12(SP) ; Divide by 2*#32 
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OC A AB 
04 AB 65 5 36 A CVTPL) #19,(R5),4(R8) ; Convert and store high bits 
B 3 (also clears 
OA 1D B BVS 12$ 3; Number too large for a 64-bit integer 
50 06 B INCL RO 3 Indicate success, RO = 1 
5E 18 CO B ADDL2 #24,SP 3; Remove temp storage 
05 : P RSB ; Return to caller 
B ; Come here if the shift count is not in signed byte range. If it is 
Hs 3 positive, an overflow exists. If negative, return zero. 
15 56 OF €0 38 los: BBS #15,R6,14$ : Branch if negative 
3g : Come here if the number cannot be represented in 64 bits. Give an 
38 3 error return. 
6 12s: CLRL : Indicate failure 


UN 
oo 


D4 RO 
5E co ADDL2 #24,SP 3; Remove temp from stack 
05 RSB : Return to caller. 
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3+ 
3; Come here on reserved operand. Signal an error and give the failure 
3 return to the user. 
00000000'8F oD 13s: PUSHL #COB$_INTRESOPE : Intermediate reserved operand 
00000000'GF 01 CALLS #1,G*CIBSSIGNAL ; Print message for user 
€B 12 3; Give failure return. 


ge 
3; Come here if the source is zero or the shift count is too small for 
; ASHP. Return a zero. 


14$: CLRQ = (RB) 

MOVL #1,RO 
ADDL2 #24,SP 
RSB 


3; Set result to zero 

3: Indicate success 

; Remove temp from stack 
3; Return to caller. 


DOUWWWINN Ss POG SNS 


\~-~-h~-1 1-1-1) ~-1-,~-1 ee eee el ele 


3 
5 
68 7C 
50 01 OD 
SE 18 C9 


| J 6 


COBSINTER rmediate Conversions 15-SEP-1984 23:44: AX/VMS Macro v04-00 Page 27 
itt 8 onvert Rounded Intermedia —— 31131 — SREICOBINTER.MAR: 1 . Dy 


-SBTTL COBSCVTRIQ_R&8 Convert Rounded Intermediate to Quadword 
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{FUNCTIONAL DESCRIPTION: 

; Convert an intermediate number to quadword (64-bit) integer. 

; CALLING SEQUENCE: 

; JSB COBSCVTRIQ_RB (scale.rl.v, src.rx.r, dst.wq.r) 

; Arguments are passed in R6, R7 and RB. 

; INPUT PARAMETERS: 

: SCALE.rl.v The power of ten by which the internal 
multiptied to scale the same os the. 

3 internal representation of the dest. 

; SRC.rx.er The number to be converted 

; IMPLICIT INPUTS: 

; ALL of the trap bits in the PSL are assumed off. 

OUTPUT PARAMETERS: 

DST.waq.r The place to store the converted number 
; IMPLICIT OUTPUTS: 

; NONE 

; FUNCTION VALUE: 

3 1 = SUCCESS, 0 = FAILURE 

; SIDE EFFECTS: 

3 Destroys registers RO through R8. 
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COBSCVTRIQ +e 
s. 2 ¢2 9 SUBL #24,SP : Make room for temp storage 
0063 BF 67 «81 3 9 CMPW = INTSW_I_EXP(R7), #INTSK_[_EXP_HI ; Bigger than biggest ? 
26 14 0 BGTR 13$ : Yes, overflow 
FFOD 8F g 81 0 CMPW v.i.cꝑcar⸗. MINTSK_I_EXP_LO ; Smaller than smallest 
7 #19 0 BLSS 3$ : Yes, underflow 
02 A7 3 TSTB SSTOP 1 PRACT CAT) : Is source zero? 
61 1 BEQL 4$ : Yes, return zero. 
56 67 A ADDW INTSW_I1_EXP(R7) ,R6 ; Compute adjusted scale 
36 12 A SUBW2 #INTSR_T_FRACT_0,R6 
0 6 3 CVTWB Re RO : Shift count in signed byte range? 
D 1p 3 B BVS 10$ : No special handling 
6€ 13 OS O2a7 12 56 F p ASHP = RO, MINTSK_I_FRACT_D,INTSP_I_FRACT(R7).#5,#19, (SP) 
40 1 ; Scale and integerize fraction 
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-R8 Convert Rounded Intermedia 6-SEP 4 COBRTL.SRCJCOBINTER.MAR; 1 
4 121 BVS 1 3; Won't fit in 19 digits, error 
68 6€ Hi i07 1 12 CVTPL 48 csp. cas 3; Attempt simple converse on 
4 121 $ (also clears RO) 
08 ; : : i me BVS 11$ 3; Simple conversion failed. 
40D 1 1§ : Come here if the number can be represented by a Lonquerg which is 
40D 1217 ; quite common. We can just spread the sign to the high 2 bits and 
8 8 3 return. 
68 88 €1 ef 400 1220 © ASHL = #31, (RB) +, (RB) ; Spread sign 
0 41 1221 N : Indicate success, RO = 1 
5E 18 414 1 § ADDL2 #24,SP ; Remove temp storage 
eit ! , RSB ; Return to caller. 
418 1225 : Come here if the number cannot be represented by a longword. The 
418 1 — ; correct low-order 32 bits have already been stored, we must now 
9 3 compute the high-order bits. 
07 09 AE 418 1 § 11$: BLBC 9(SP),115$ :; Skip if positive 
6— 13 FBES CF OA 8 1230 SUBP4 #BIAS_DIGITS,BIAS_1,419,(SP) ; Make more negative 
13 6€ 13 #4¥FBD8 CF t * 1231 1155: DIVvP #BIAS-DIGITS.BIAS.419, (SP) ,#19.12(SP) : Divide by 2**32 
04 AB 65 5 36 64 D1 3 CVTPL) «#19, (R5),4(R8) : Convert and store high bits 
Be § 1 3 (also clears RO) —* 
OA 1D 04 1234 BvS 12$ 3; Number too large for a 64-bit integer 
50 D6 bees 1235 INCL R 3 Indicate success, RO = 1 
5E 18 CO 04 3 1236 ADDL2 #24,SP 3; Remove temp storage 
05 ot H ! 3 RSB 3; Return to caller 
043A 1239 ; Come here if the shift count is not in signed byte range. If it is 
Bee ! re . positive, an overflow exists. If negative, return zero. 
15 56 OF €0 bee : 43 fos: BBS #15,R6,14% : Branch if negative 
re 1244 : Come here if the number cannot be represented in 64 bits. Give an 
043E 1245 ; error return. 
O43E 1 #6 3* 
50 D4 O43E 1247 128: CLRL. RO : Indicate failure 
SE 18 CO 0440 1248 ADDL2 #24,SP ; Remove temp from stack 
05 oe : 8 RSB ; Return to caller. 
444 1251 : Come here on reserved operand. Signal an error and give the failure 
rer ' 26 3 return to the user. 
00000000°8F DD 0444 1 37 13s: PUSHL #COBS_INTRESOPE 3; Intermediate reserved operand 
00000000'GF 01 FB 044A 1255 CALLS #1,G*CIBSSIGNAL 3; Print message for user 
eB 11 431 36 ; BRB 12$ : Give failure return. 
453 1 38 : Come here if the source is zero or the shift count is too small for 
rf : 23 3; ASHP, Return a zero. 
68 7C 0453 1261 14s: CLRQ  —s- (RB) : Set result to zero 
20 01 OD 455 1 6¢ MO #1,R0 3; Indicate success 
— 18 f 458 126 ADDL2 #22,SP ; Remove temp from stack 
45B 1264 RSB ; Return to caller. 
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-SBTTL COBSCVTIF _R7 Convert Intermediate to Floating 


FUNCTIONAL DESCRIPTION: 

Convert intermediate to single-precision floating 
CALLING SEQUENCE: 

JSB COBSCVTIF_R7 (src.rx.r, dst.wf.r) 

Arguments are passed in R6 and R7. 
INPUT PARAMETERS: 

SRC.rx.er The number to be converted 
IMPLICIT INPUTS: 

ALL of the trap bits in the PSL are assumed off. 
OUTPUT PARAMETERS: 

DST.wf.r The place to store the converted number 
IMPLICIT OUTPUTS: 

NONE 
FUNCTION VALUE: 

1 = SUCCESS, 0 = FAILURE 
SIDE EFFECTS: 

Destroys registers RO through R7. 
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0063 8F 66 81 cAPw INTSW_I_EXP(R6), #INTSK_I_EXP_HI ; Bigger than biggest ? 
6— 14 BGTR 4% ; Yes, overflow 
FFOD 8F 81 CMPW = INTSW_I_EXP(R6), MINTSK_I_EXP_LO ; Smaller than smallest 
§ 19 8 BLSS 4$ Yes, underflow 
SE 7 @& a . SUBL2 #INTSK_I_FRACT_D+7+8,SP ; Allocate space for string and result 
46D : Convert the intermediate-form number to text using the following 
8 : format: 
8 +0.ddddddddddddddddddE+ee 
460 > so that it can be converted by OTSSCVT_T_D. 
OA AE 12 02 A6 12 = 08 $0 . CVTPS #INTSK_I_FRACT_D,INTSP_I Ng roben a 
4 #INTSK71~ FRACT=D S1O(SPY F Convert fraction to separate 
08 A 9 90 0474 MOVB = (R3) , BTS ; Move si OF ONEE .. 
09 AE 330 F BO 0478 move #*A/6./ SOUSP) Start with "+0. 
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1 Rh? Convert Intermediate to Flo 6-SEP-1984 10:46: COBRTL.SRCIJCOBINTER.MAR;1 (18) 
3 CVTWL  «=sANTSW_I1_EXP(R6),RO 3 Get exponent 
6E 8 CVTILP = RO, #2, (SP) 3: Make @ poched number 
3 BVS 3; Should never fail 
1E AE 02 6€ CVTPS 7 CEM MC oEMTOR LS _FRACT DONE (Se? . ' » 
3; Make a separate sign number 
73 45 85 MOVB #*A/E/,=(R3) 3; Make it —88 ’ 
; Build the descriptor for OTSSCVT_T_D. 
08 AE ‘ PUSHAB 8(SP) : Address = area reserved 
7E 1 MOVB #OSCSK_CLASS_S,=-(SP) : Class = static 
7E O MOVE #OSCSK_DTYPE_T,-(SP) ; Data type = ASCII text 
, . MOVW #INTSK~I_FRACT_D+7,-(SP); Length of string | 
; Now call the conversion routine. 
08 AE : PUSHAB 8(SP) : Address of value 
PUSHAB 4(SP) 3; Address of descriptor 
00000000 ° GF 9 CALLS #2,G*OTSSCVT_T_D 3; Convert the number 
BLBC RO,2$ ; Failure — must be overflow 
67 08 ae CVTDF 8(§P), (R7) ; Store result for user 
0 BVS 2$ ; Conversion failed 
50 1 MOVL #1,R0 ; Indicate success 
SE 29 ADDL2 #INT$K_1_FRACT_D+7+8+8,SP ; Delete stack temps 
RSB 3 Return to caller 


+ 
Come here if the conversion fails. This means that the intermediate- 


; form number cannot be represented as a single-precision wyooy ung boven 
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: number. Store the reserved operand and return a failure indication. 
5E 4 2s: ADDL2 #INTSK_I_FRACT_D+7+8+8,SP ; Delete stack temps 
67 01 F 1$: ASHL #1581, (R7) : Store floating reserved operand 
50 CLRL RO :; Indicate failure 
. RSB : Return to caller 
04C4 ; Come here if the exponent overflowed 2 decimal digits. The | 
Rete 3; intermediate-form number is messed up. Signal an internal OTS 
866 faiture. 
00000000°8F oD D4 C4 $s: PUSHL #OTS$_FATINTERR : OTS internal failure | 
00000000'GF 01 FB thy CALLS #1,G*CIBSSTOP 
4D1 3+ 
4 3; Out-of-range exponenent encountered for a CIT. Complain about it. 
4D1 ds: 
00000000'8F DD 04D1 PUSHL #COBS_INTRESOPE ; CIT reserved operand signal 
00000000'GF 01 FB 0407 CALLS #1, G*LIBSSTOP 3 Signal and stop. 
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ID_R? Convert Intermediate to Dou "3% P= COBRTL.SRCIJCOBINTER.MAR; 1 ( 
rt: } 74 -SBTTL COBSCVTID_R7 Convert Intermediate to Double 
4DE 1374 ;44 
rt ! 3 3 FUNCTIONAL DESCRIPTION: 
ADE 7 ; Convert intermediate to double-precision floating 
ADE hi ; CALLING SEQUENCE: 
Ade 1 ; JSB COBSCVTID_R7 (src.rx.r, dst.wd.r) 
ADE § ; Arguments are passed in R6 and R7. 
ADE 5 > INPUT PARAMETERS: 
* SRC.rx.er The number to be converted 
i 89 : IMPLICIT INPUTS: 
O4DE 91 3 ALL of the trap bits in the PSL are assumed off. 
O4dE $8 : OUTPUT PARAMETERS: 
rt ' 8* DST.wd.r The place to store the converted number 
4DE 1397 : IMPLICIT OUTPUTS: 
4DE 1398 ; 
ce — 
O4DE 1401 : FUNCTION VALUE: 
—*8 1 = SUCCESS, 0 = FAILURE 
O4DE 1405 > SIDE EFFECTS: 
4DE 1407 ; Destroys registers RO through R7. 
O4DE 1408 ; 
tbe 1210 * 
4DE 1411 COBSCVTID_R7:: 
0063 8 66 3} 4D 1216 CAPW INTSW_I_EXP(R6), MINTSK_I_EXP_HI ; Bigger than biggest ? 
6C 4 Ree 141 BGTR 4$ ; Yes, overflow 
FF9D 8F 66 B1 OQO4E5 1414 CMPW INTSW_I_EXP(R6), MINTSK_I_EXP_LO : Smaller than smallest 
19 O4EA 1415 BLSS 4$ Yes, underflow 
5E 1 C2 * 1218 i SUBL2 #INTSK_I_FRACT_D+7+8,SP ; Allocate space for string and result 
4EF 1618 + Convert the intermediate-form number to text using the following 
rt} 1333 3; format: 
rt} 13 1 3 +0 .ddddddddddddddddddE+ee 
rt} 1? § ; so that it can be converted by OTSSCVT_T_D. 
OA AE 12 02 A6 12 O08 OQO4EF 1425 : CVTPS #INTSK_I_FRACT_D rth I_FRACT(R6), 
4F6 14 — #INTSK-I~ PRACT_D SPY F Spread out “number 
08 A 30 ff 99 4F6 14 MOVB (R3) ,8TS : Move sign over 
09 AE 330 F BO O4FA 1428 MOVW = #*A/ 6° /, 9<SP) : Start with "#0," 


8 7 
FOBS INTER COBOL i ergediate Conversions 15-SEP-1984 3831 — Macro V04-00 
1-01 COBSCVTID_R7 Convert Intermediate to Dou 6-SEP-1984 10:46: COBRTL.SRCIJCOBINTER.MAR; 1 
3 4 CVTWL «=o INTSW_I_EXP(R6),RO : Get exponent 
6E 83 § 8 4 CVTLP Bees tSB) 3; Make @ peched number 
5 8 > 4 Vv 3; Should never fail 
1E AE 02 6€ 0 7) : CvTPS @ (SP) 02 INTER T PRACT Bo let sr) : ' > 
7 Make a separate sign number 
73 45 BF 90 8 3. MOVE #*A/E/,=(R3) i Make it Eeee”™ © 
; : ; Build the descriptor for OTSSCVT_T_D. 
OB AE OOF «O05 438 ° PUSHAB 8(SP) : Address = area reserved 

7E 4 9 5 4 MOVB #OSCSK_CLASS_S,=-(SP) ; Class = static 

7E 3 9 5 4 MOvB #DSCSK_DTYPE 1392 ; Data type = ASCII text 

. 8 MOVW W#INTSKII_FRACT_D+7,-(SP); Length of string 
4 
6 
4 
4 
4 
Pi 


NAME WN SO ODONAUE WHO ODNOU SUN" O0 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
144 
1s 
8 3; Now call the conversion routine. 
oe AE 9F 05 144 PUSHAB 8(SP) 3; Address of value 
4 as oF 5 144 PUSHAB 4(SP) ; Address of descriptor 
00000000'GF 0 FB 05 144 CALLS #5 -§,OTSSCvT_T_p 3; Convert the number 
50 9 05 144 BLBC RO,2$ ; Failure — must be overflow 
67 OB AE 70 O52F 144 MOVD 8 (§P),(R7) : Store result for user 
50 01 vO O05 145 MOVL #1,R0 ; Indicate success 
= Ce 145 ADDL2 #INTSK_I_FRACT_D+7+8+8,SP ; Delete stack temps 
05 09 145 : RSB : Return to caller 
05 1454 ; Come here if the conversion fails. This means that the intermediate- 
053A 1455 ; form number cannot be represented as a double-precision a point 
8 ; number. Store the eserved operand and return a failure indication. 
5E 2 £8 82 1038 2$: ADDL2 #INTSK_I_FRACT_D+7+8+8,SP ; Delete stack temps 
67 01 F 5 1459 1$: ASHQ #1581, (R7) : Store floating reserved operand 
50 04 0541 1460 CLRL RO : Indicate failure 
05 Beez 138) RSB ; Return to caller 
ge 
0544 1483 : Come here if the exponent overflowed 2 decimal digits. The 
0544 1464 ; intermediate-form number is messed up. Signal an internal OTS 
beee 1002 3; failure. 
00000000'°8F oD 0544 1469 $$: PUSHL #OTS$_FATINTERR : OTS internal failure 
00000000'GF 01 FB eof 1365 CALLS #1,G*CIBSSTOP 
551 1470 ;:+ 
331 tere ; Out-of-range exponenent encountered for a CIT. Complain about it. 
551 1473 ds: 
00000000°8F DD 0551 1474 PUSHL #COBS, INTRESOPE : CIT reserved operand signal 
00000000°GF 01 FB 0557 1475 CALLS #1, G*LIBSSTOP 3; signal and stop. 
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ate Conversion 
nvert Intermed 


wn OOO 


WPS ODNA 9 ODNA UNE WIN 9 ODA UNE WW 9 OD NOU EWN © OONAUS WI" OWOOn OO —- 


PPL LL EEE 


ot at 8 td 8 md I =I BOOODOOOOCOCOCOCOOOOOO0OO'” WECCDCD CO CDCDCDCD 


a ec a a a a ee — — — — — — — — — — — — — — 
Be Se Se Ge Se Ge Se Ge Ge Se Ge Ge Ge Ge Ge Se Ge Ge Se Ge ——————————2— 


(DU PV LIV LPV LVI PV IV PV DPV DU PVIVPVIVPVSUSUSUSUSUSTSU SUSI TIT EB PEE EE 


SOOOCOOCOOOCOOCOOOS OOO SOSOSOSOSOOOOOOCOO OOOO OOCOCOOSO OOOO OOO OOOOOOO 
Se ee eee aa ah sh th hh dh ah hb ah dh ah ah ah dh dh ah ah ah ah ah ab ah ahah ah ah ahaha) 


WAAAPOPOPONONINONPIPONIND 


"WP P -—Oo—- © — © 


OD WNOWWN OO & — 


late to Pac 
-SBTTL COBSCVTIP_R9 


S FUNCTIONAL DESCRIPTION: 
Convert an intermediate 
CALLING SEQUENCE: 
JSB COBSCVTIP_RO (scale. 
Arguments are passed in 


; INPUT PARAMETERS: 


SCALE.rl.v 


SRC.rx.er 
DSTLEN.rl.v 


; IMPLICIT INPUTS: 


ALL of the trap bits in 
OUTPUT PARAMETERS: 

DST.wp.r 
IMPLICIT OUTPUTS: 

NONE 
FUNCTION VALUE: 

1 = SUCCESS, 0 = FAILURE 
SIDE EFFECTS: 


15-SEP=1 
6-SEP=-1 


be 10:06:52 ECOGNTE. — — — 


Convert Intermediate to Packed 


number to packed integer. 


rl.v, src.rx.r, dstlen.rl.v, dst.wp.r) 
R6, R7, RB and RI. 


The power of ten by which the internal 
i peg ot in of the source must be 
multiplied to scale the same as the 
internal representation of the dest. 
The number to be converted 

The number of digits in the destination 


the PSL are assumed off. 


The place to store the converted number 


Destroys registers RO through R9. 


COBSCVTIP_R9Y:: 
cAPw [BTSU_1_EXPCR?), WINTSK_I_EXP_HI ; Bigger than biggest ? 
BGTR 28 ; Yes, overflow 
CMPW INTSW_1_EXPCR7), #INTSK_I_EXP_LO ; Smaller than smallest 
BLSS 2$ ; Yes, underflow 
TSTB {NTSP_TLFRACT CR?) ; Is source zero? 
BEQL 3$ ; Yes, return zero. 
ADDW INTSW_1_EXP(R7) ,R6 ; Compute adjusted scale 
SUBWe © #INTSR_T_FRACT_0,R6 
CvTwB 8 RO : Shift count in signed byte range? 
BVS 10$ ; No special hand| ng 
ASHP) =—s- RO, MINTSK_I_FRACT_D, INTSP_I_FRACT(R7),#0,R8,(R9) 
; Scale and integerize fraction 


— COBSCVTIPLRS. 


oa 


jate cepvers tons 177 360- 1388 31434 AX/VMS Macro V04-00 Page 36 
onvert Intermediate to Pac 6-SEP-1984 10:46: COBRTL.SRCJCOBINTER.MAR; 1 (20) 


(also clears RO) 


BVS 11$ : Overflow means ag convert 
I :; Indicate success, RO = 1 


= 
; Come here if the source is zero or the shift count is too small for 
the ASHP instruction. Return a zero. 


— — “— 
we 
—4 


4 
97 10 5 
Be 5 $ RSB Return to caller. 
§ : Come here if the shift count is not in signed byte range. If it is 
9 positive, an overflow exists. If negative, return zero. 
1356 OF €0 3 8 los: BBS #15,R6,13$ ; Branch if negative 
5 44 ; Come here if the number cannot be represented in the number of digits 
é $2 :_provided. 
50 D4 05 23 11$: CLRL RO 3 Indicate failure 
05 : 208 * RSB ; Return to caller. 
5 550 ; Come here on reserved operand. Signal the error and give the 
2 22) 3; failure return. 
00000000°8F dD O05 226 12s: PUSHL #COBS$_INTRESOPE : Intermediate reserved operand 
00000000'GF 01 FB 83 554 CALLS #1,G*CIBSSIGNAL ; Print message for user 
50 04 O5 555 CLAL RO : Indicate failure 
05 05 228 RSB ; Return to caller. 
05 55 
05 558 
82 559 
5 560 
58 00 F9 OS 561 CVTLP = #0,R8,(R9) ; Set result to zero 

50 01 oO O5 266 MOVL #1,R0 3; Indicate success 

05 05 56 RSB ; Return to caller. 


—E 7 
COBSINTER COBOL Intermediate Conversions 15-SEP-19 246: AX/VMS Macro V04-00 Page 35 
ett EOpstvinte P_R R9 Convert Rounded Intermedia Fete ts ; tei te COBRTL.SRCICOBINTER.MAR; 1 ’ 3) 
AB 1565 -SBTTL COBSCVTRIP_R9 Convert Rounded Intermediate to Packed 
AB 1869 s+ 
3A 68 : FUNCTIONAL DESCRIPTION: 
sh ! 29 ; Convert an intermediate number to packed integer. 
3A 3 CALLING SEQUENCE: 
2, ! 8 JSB COBSCVTRIP_RO (scale.rl.v, src.rx.r, dstlen.rl.v, dst.wp.r) 
3A i: : Arguments are passed in R6, R7, RB and R9. 
3A 28 : INPUT PARAMETERS: 
SA 1280 : SCALE.rl.v ro power of ten by which the internal 
SA 133 ; repeverecar ren of the source must be 
SAB 15 ¢ $ tiplied to scale the same as the 
05A8 133 : internet representation of the dest. 
OSA8 1584 : SRC.rx.r The number to be converted 
84 33 DSTLEN.rl.v The number of digits in the destination 
OA8 1387 : IMPLICIT INPUTS: 
OAs 1389 : ALL of the trap bits in the PSL are assumed off. 
O5A8 1391 ; OUTPUT PARAMETERS: 
—84 1398 ; DST.wp.r The place to store the converted number 
O5A8 1595 IMPLICIT OUTPUTS: 
OSA8 1596; 
ht le 
O38 1399 : FUNCTION VALUE: 
O5A 1601 : 1 = SUCCESS, 0 = FAILURE 
03h 1608 > SIDE EFFECTS: 
5A 1808 Destroys registers RO through R9. 
SA 1606 3 
Tt 1808 COBSCVTRIP_R9Y:: 
0063 8F 8 H a 1919 enry v. ILEXP(R7), MINTSK_I_EXP_HI ; Bigger — biggest ? 
over flow 
FFOD 8F 6 Bi SAF 1616 CMP INTSW_ 1EXP(R7), #INTSK_I_EXP_LO : gk. than smallest 
24 9 0584 161 BLSS 2$ > Yes, under flow 
02 a7 9 5B6 1614 TSTB {NTSP. 1_FRACT(R7) 3 is source sere! 
ae 64 5B9 1615 BEQL 3$ ; Yes, return z 
26 67 A 588 1918 ADDW INTSW_]_EXP(R7) 43 3; Compute ediustes’ scale 
. 2 oe & SBE 161 SUBWe = #INTSR_T_FRACT_O,R 
50 56 ; 5¢ 1913 CVTWB Re RO ~ 13* count ja Signed byte range? 
D p 306 161 BVS 10$ special han AN ng 
69 58 05 02 A7 12 6 F C6 1960 ASHP R6,#INTSK_I_FRACT_D, pom f ' FRA T(R7) ,#5,R8,(R9) 
5CE 1621 ;7SEale and integerize fraction 


FOBSINTER —B*R⸗ gragdiete Conversion 
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P_RY Convert Rounded Intermedia SEP 1384 $9 :66;42 — 3h) 


COBRTL.SRCJCOBINTER.MAR; 1 


nt 
RI 
CE 16 ¢ 3 (also clears RO) 
8 1D CE 16 BVS 11$ 3; Overflow means can't convert 
0 bg DO 1624 INCL RO 3; Indicate success, RO = 1 
4 1° 5 * RSB 3; Return to caller. 
20 19 5 : Come here if the shift count is not in signed byte range. If it is 
20 12 3 : positive, an overflow exists. If negative, return zero. 
1356 OF €0 3 16 p os: BBS #15,R6,13$ ; Branch if negative 
5D7 16 § ; Come here if the number cannot be represented in the number of digits 
ab? 1? Z : provided. 
50 04 05D7 1635 {i1$: CLRL = RO : Indicate failure 
05 3? Mb $ 3 RSB 3; Return to caller. 
**8* 16 8 : Come here on reserved operand. Signal the error and give the failure 
ape 1973 : return to the user. 
Q00000000'8F oD bapa 1641 128: PUSHL #COB$_INTRESOPE : Intermediate reserved operand 
00000000'GF 01 FB B3E0 1668 CALLS #1,G*CIBSSIGNAL ; Print message for user 
50 D4 OSE? 164 CLRL RO 3; Indicate failure 
05 B28 1983 A ; Return to caller. 
OSEA 1968 : Come here if the source is zero or if the shift count is too small 
been Hb of 3; for the ASHP instruction. Return a zero. 
69 58 00 F9 OSEA 1649 138:  CVTLP #0,R8,(R9) ; Set result to zero 
50 01 DO OSEE 1650 MOVL #1,R0 3 Indicate success 
05 OSF1 1651 RSB ; Return to calier. 
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-SBTTL COBSCVTTI_RS Convert Text to Intermediate 


o¢ 
FUNCTIONAL DESCRIPTION: 
Convert text to intermediate 


; CALLING SEQUENCE: 


JSB COBSCVTTI_RB (srclen.rl.v, src.rt.r, dst.wx.r) 
Arguments are passed in R6, R7 and R8 


; INPUT PARAMETERS: 


SRCLEN.rl.v The number of digits in the source 
SRC. rt.r The number to be converted 


; IMPLICIT INPUTS: 


ALL of the trap bits in the PSL are assumed off. 


; OUTPUT PARAMETERS: 


OST. wx.r The place to store the converted number 


; IMPLICIT OUTPUTS: 


NONE 


; FUNCTION VALUE: 


1 = SUCCESS, 0 = FAILURE 


; SIDE EFFECTS: 


on 
* <3 


DRAM OOVWODD WAM IPIPIPNINIPININIPIPIPIPIPIPIPIAINPIPIPIPIPIPIPIPIPIPIPIPIPINIPININY — rt 


Fe ab db db Ab db Abb bib b Abbe dd bd bbb Ab Ab db db dh Ab db Ab db Ab Ab Ab Ab db db db db dh Ab hb hb ah db hb hb hb ch ah Al 
Pi i Bi Ben Di Bas Di Bi Di De Bi ee ee Ds De Bi es Di Ba De Re ee Be i Bs i es a Be — 22 
— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — 


000000———————————————————————————⏑ —⏑—⏑ —⏑ ⏑ ⏑ ⏑ ⏑ ⏑⏑⏑ 


2 


oo 


Destroys registers RO through R8. 


COBSCVTTI_R8:: . 
SOBL2 #INTSK_I_FRACT_D+1,SP ; Space for separate-sign fraction 


ince the compiler will convert the text string with in-line code if it can, 
here is no need to include a test for this case. Thus we will assume that 


he string is too long to be converted using decimal string instructions. 


CVTLP = #0, #INTSK_I_FRACT_D, INTSP_I_FRACT(R8) 
: Initialize result to zero 
CLRW INTSW_I_EXP(R8) ; Also set exponent to zero 


Delete leading zeros from the peuree string so that the result will 
contain the maximum number of significant digits and be normalized. 


L R6 3 Any digits? 
; No, return the zero. 


TST 
BLEQ 14$ 
CMPB (R7)+,@*A/0/ ; Is this digit zero? 


— 


00000063 8F 26 


O1AE 12 30 6€ 00 


6E 28 

50 
51-50 0 
09 1 

1¢ 

12 5 

01 AE42 8 
22 

ES 56 


02 a8 12 6E 12 


oe. 

50 01 

1 

ovae 50 
5E 

1 

90000000" BF 
————8 
E 4 

D 
00000000 * 8F 


00000000°GF 01 


ate Conversions 
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aa 
— 


2 


a SII —IOOOOOSGSOOSOO = =15 


(8 4 — — — — 


SESSF. 
PAAR AA AAA AAA AAA AAAAO 


BNEQ 11 
SOBGTR R6 
BRB 14 


— 


exponent for overflow. 


bee Ge Ge Ge Ge Ge 


— 
wf 
ee 


MOVB #*A/+/, (SP) 


15-SEP-1984 


+ 

Come here at the first non-zero di 
contains the number of digits rema 
exponent of the intermediate-form number. 


git of the strin 


CMPL RG WINTSK_1_EXP_HI 
MOVW — RG, INTSW_I_EXP(RB) 
DECL = R 


? * AX/VMS Macro v04-00 


COBRTL.SRCJCOBINTER.MAR; 1 
3; No, start collecting digits 


3; Loop back for another 
3 Att Patel 


ing in the string, which is th 


; Is exponent too big? 

3; Yes, fail to convert. 

; Store exponent 

; Correct for autoincrement 


30 
Build a leading separate sign representation of the first 18 digits. 
MOVCS #0,(SP),#*A/0/ ,MINTSK_I_FRACT_D,1(SP) 


: Zero-fill the digits 
Insert plus sign 
Initialize digit counter 
Get Tt from input 
Convert to binary 

Check range 

Br if not a digit 


ts zero, return zero. 
At this time, R6 
e 
We can now store it and test the 


Do not store more than 18 digits 


VWOMD NLU PPP ⏑ — 


—— 


i i i i en ee yy ye i —— 


"OOo pat 4 > | 
MOoom—P> WP & 


AAAS 


COOOoOooooooSo 


PAAAAAOAMANWINE BEE EE EEE RWW 
MODWOOWWOA WAP EMMA AOADOUUM THA DS 


0 


2——22 2⏑ oo 
— — — — — — —— —— —— —— —— —— ee ne ee ee ee ee ee ee ee 


LQ 
PEGA AMIN BPEL LLL LE 


BIE OOOO o WIN OOD NAME WIN 9 ODNAUE WIN O OO ⏑ UO 


an 


nao 
woo 


CVTSP 


iss: PUSHL 
MOVB 


; return. 


168: PUSHL 
CALLS 


30 
3; Come here on an invalid State. 
; Return the reserved operand. 


CLRL 

128 —8W (R7)+,RO 
SUBL #*A/0/,RO,R1 
CMPL R1,#9 
BGTRU 15 
CMPL R2 #18 
BGEQU 1 
Ove RO,1(SP)CR2] 
INCL R 

13$: SOBGTR R6,12$ 


14$: 400.2 #INTSK_I_FRACT_D+1,SP 
MOVL #1,RO 


#1 
RO,1(SP) 
SP 
& 


3¢ 
3; Come here if there are so er | digits 
: Store the reserved operand, sig 


#i 
17$ 

#COB$_INTEXPOVE 
#1,G*CIB$SIGNAL 


The 


Store the digit 
Count the digit 
: Loop if more digits 


¢ 
: Come here when we have processed all digits. 
#INTSK_I_FRACT_D, (SP) ,MINTSK_I_FRACT_D, INTSP_I_FRACT(R8) 


; Get packed fraction 
: Delete stack temps 
3; Indicate success 

3; Return 


Signal the error and indicate failure. 
nvalid digit is in RO. 


Construct ASCIC digit at top 


of stac 
This is the FAO argument 
Address of FAO argument 
Count of FAO ar 


Print message for user 
Remove FAO argument 
Set reserved operand and return 


that the exponent overflows. 
the error and give the failure 


: Intermediate exponent overflow 
; Print message for user 


guments ⸗ 
Message code: Invalid decimal digit 


et. 
SINTER CoB ntermediate Conversions Po] AX/VMS Macro * Pa 9 
itt) EOBStVETI RB convers Text to Intermediat "8 Pa] 1984 93:66 $3 COBRTL.SR RE ICOB TER.MAR; 1 - (33) 
68 8000 8F 80 3 1767 17$: MOVW #INTSK_I_EXP_RES, INTSW_I ope ine) 


1708 : xponent marks reserved operand 
9 7A 178 CLRL RO ; Indicate failure 
_e C9 7¢ =1770 ADDL2 @#INTSK_I_FRACT_D+1,SP ; Delete stack temps 

8 33 R5B 3; Return 

6 1558 , END ; End of module COBSINTER 


a 
So's 
— 
Sa 
— 
2 
ad 


Sad 
a 
< . 4 
ee ce a ed ae ee ee 


OTssevt 
OTS$_ FATINTERR 


PSECT name 


- ABS . 
SABS$ 
-COBSCODE 


COBOL Intermediate Conversions 


oo 


08 


BSEP=198¢ 10:66 


14F RG 
re RG 
E RG 
45C RG 
AA RG 
2f RG 
0 § RG 
1F2 RG 
44 RG 
: 19F RG 
0 3 RG 
0003035 RG 
OOO0SAB RG 
OO0003DC RG 8 
88 RG 
OOOO5F2 RG 0 
0000007A RG 8 
keke eee x 
ekeeeere x 00 
geeeerer x 00 
geeeaker x 00 
00000001 
O00000E 
OOOO00C R 02 
0000006 
FFFFFFOD 
3433 
0000001 
S44 44 4 
0000000C 
0000002 
0000000 
eeereeee x 0 
geeneeee 4 + 
geereene x 00 
keer eeee x 00 
Co 
: Psect synopsis ! 
ocation ° ridutes 
ALL ti PSECT No. Attribut 
00000000 < 8.3 00 ¢ 0.) NOPIC USR CON ABS 
00000000 oll 4 ( 1.) NOPIC USR CON ABS 
00000680 ( 1664.) e€ wat PIC USR CON REL 


:32 


LCL 
LCL 
LCL 


AX/VMS M 
COBRTL. sre 


NOSHR NO 
NOSHR 


EXE 
EXE 
SHR EXE 


ollaree 
OBINTER.MAR; 1 


Pag 


e 4 
(22) 


NORD NOWRT NOVEC BYTE 
RD WRT NOVEC BYTE 
RD NOWRT NOVEC LONG 
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jNTER e 
VAX=-11 Macro Run Statistics 6-SEP- COBRTL.SRCJCOB 


be nwmemnaoce reese merceeecea ty 


! Performance indicators ! 


wren enn eee roe seen ec eer nea 


Phase Page faults CPU Time Elapsed Time 
initialization 1 :00:00. : ‘0h. 9 
Command processing 114 :00:00. :00: 3° 
Pass 1 207 :00:03.37 7:00:19. § 
Symbol table sort 0 0:00:00.14 :00:00.7 
Pass 301 :00:02.26 3: 11.64 
Symbol table output 7 :00:00.04 :00:00.04 
Psect synopsis output 4 :00:00. 0:00: 8-88 
Cross-reference output 0 0:00:00. 0:00:00.00 
Assembler run totals 666 00:00:06.31 0:00: 36.60 


ihe working set Limit was 1650 pages. 
33510 bytes (66 pages) of virtual memory were used to buffer the intermediate code. 

There were 20 pages of symbol table space a eqcotes to hold 172 non-local and 68 local symbols. 
1773 source Lines were read in Pass 1, producing 15 object records in Pass 2. 

9 pages of virtual memory were used to define 8 macros. 


— 


! Macro Library statistics ! 


Ce en nee + 


Macro Library name Macros defined 
“B52 2SDUACE: ECOBRTL 08 ICOBRIL -MLB; 1 1 
$255$DUA28: CSYSLIBISTARLET.MLB;2 4 
TOTALS (all Libraries) 5 


203 GETS were required to define 5 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSJON/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:COBINTER/OBJ=0BJ$:COBINTER MSRC$:COBINTER/UPDATE=(ENHS: COBINTER) +L1B$:C 
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